home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 47
/
64er_Magazin_Sonderheft_47_19xx_Markt__Technik_de_Side_B.d64
/
lad.print shop
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
649b
|
23 lines
10 rem epson-lader fuer print-shop
20 rem und mps-1000 parallel
30 rem von r.lagarde
40 rem dip-schalter 1.1 on
50 rem ----------------------------
60 poke53281,15:poke53280,15
70 goto170
80 poke53281,9:poke53280,9
90 printtab(11)"bitte eine taste!":poke198,0:wait203,63
100 open4,4:print#4,chr$(27)"1":close4
110 rem --------------------------------
120 rem ------ print-shop laden --------
130 ifa=0thena=1:load"print shop",8,1
140 run
150 rem --------------------------------
160 rem ------ device not present ------
170 print"[147]":open4,4:print#4
180 ifpeek(144)<>128thenclose4:goto80
190 printtab(5)"bitte den drucker einschalten[154]"
200 printtab(4)"und mit pfeil links bestaetigen!"
210 poke198,0:x=peek(203):ifx<>57then210
220 close4:goto100